100 GOTO380 110 OPEN2,8,2,"0:BUDGET DATA 2,S,R" 120 FORTY=1TO192 130 INPUT#2,Y$(TY) 140 INPUT#2,Y(TY) 150 NEXTTY 160 FORTY=1TO192 170 INPUT#2,H$(TY) 180 INPUT#2,H(TY) 190 NEXTTY 200 INPUT#2,GT$ 210 FORTY=1TO12 220 INPUT#2,YM$(TY) 230 INPUT#2,YM(TY) 240 NEXTTY 250 FORTY=1TO12 260 INPUT#2,HM$(TY) 270 INPUT#2,HM(TY) 280 NEXTTY 290 FORTY=1TO16 300 INPUT#2,YS$(TY) 310 INPUT#2,YS(TY) 320 NEXTTY 330 FORTY=1TO16 340 INPUT#2,HS$(TY) 350 INPUT#2,HS(TY) 360 NEXTTY:CLOSE2 370 RETURN 380 IFAM$=MID$(MT$(1),2,3)ANDAM=0THEN400 390 GOSUB110:GOTO520 400 FORP=1TO16:YS$(P)="0000":NEXTP 410 FORP=1TO12:YM$(P)="0000":NEXTP 420 FORER=1TO(12*16):IFY$(ER)="000"THENY$(ER)="---":NEXTER 430 FORTY=1TO16 440 SR$(TY)=SS(TY):SR$(TY)=SS$(TY) 450 SS$(TY)=SU(TY):SS$(TY)=SU$(TY) 460 SU$(TY)=ST(TY):SU$(TY)=ST$(TY) 470 NEXTTY:FORTY=1TO12 480 BA(TY)=BB(TY):BA$(TY)=BB$(TY) 490 BB(TY)=BC(TY):BB$(TY)=BC$(TY) 500 BC(TY)=MT(TY):BC$(TY)=MT$(TY) 510 NEXTTY:AM$="+" 520 LA$="":LB$=" ":LC$=" ":LD$=" ":LE$=" " 530 LF$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LK$="" 540 FORTY=1TO16:ST$(TY)=YS$(TY):NEXTTY 550 FORTY=1TO12:MT$(TY)=YM$(TY):NEXTTY 560 IFFR=1THENLO=1:LOAD"BUDGET CALC",8,1 570 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 580 PRINT"[164][164][164][164]" 590 PRINT"REVIEW SUBJECTS.................... F1 [146]" 600 PRINT"[164][164][164][164]" 610 PRINT"REVIEW MONTHS...................... F3 [146]" 620 PRINT"[164][164][164][164]" 630 PRINT"REVIEW TOTALS GRAPHICALLY.......... F5 [146]" 640 PRINT"[164][164][164][164]" 650 PRINT"REVIEW PROFIT OR LOSS.............. F7 [146]" 660 PRINT"[164][164][164][164][164][164][164][164][164][164][164]"; 670 PRINT"RETURN TO THE SPREADSHEET.... SPACE BAR [146]" 680 PRINT"WHAT IS YOUR OPTION ?" 690 GETQU$:IFQU$=""THEN690 700 IFQU$="[133]"ORQU$="[134]"ORQU$="[135]"ORQU$="[136]"ORQU$=" "THEN720 710 GOTO690 720 PRINT"[145] PLEASE WAIT" 730 IFQU$="[133]"THEN790 740 IFQU$="[134]"THEN1190 750 IFQU$="[135]"THEN1520 760 IFQU$="[136]"THEN2810 770 IFQU$=" "THENLO=1:LOAD"BUDGET CALC",8,1 780 GOTO690 790 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 800 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3 810 PRINT"" 820 PRINTS$(1);LA$;BA$(1);LC$;BB$(1);LC$;BC$(1);LC$;YS$(1):PRINT 830 PRINTS$(2);LA$;BA$(2);LC$;BB$(2);LC$;BC$(2);LC$;YS$(2):PRINT 840 PRINTS$(3);LA$;BA$(3);LC$;BB$(3);LC$;BC$(3);LC$;YS$(3):PRINT 850 PRINTS$(4);LA$;BA$(4);LC$;BB$(4);LC$;BC$(4);LC$;YS$(4):PRINT 860 PRINTS$(5);LA$;BA$(5);LC$;BB$(5);LC$;BC$(5);LC$;YS$(5):PRINT 870 PRINTS$(6);LA$;BA$(6);LC$;BB$(6);LC$;BC$(6);LC$;YS$(6):PRINT 880 PRINTS$(7);LA$;BA$(7);LC$;BB$(7);LC$;BC$(7);LC$;YS$(7):PRINT 890 PRINTS$(8);LA$;BA$(8);LC$;BB$(8);LC$;BC$(8);LC$;YS$(8):PRINT 900 PRINT" USE JOYSTICK TO VIEW OTHER SUBJECTS" 910 PRINT"" 920 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16 930 IF(SDAND1)THEN920 940 IF(SDAND2)THEN990 950 IF(SDAND4)THEN920 960 IF(SDAND8)THEN920 970 IFFO=0THEN570 980 SD=0:GOTO920 990 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 1000 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3 1010 PRINT"" 1020 PRINTS$(9);LA$;BA$(9);LC$;BB$(9);LC$;BC$(9);LC$;YS$(9):PRINT 1030 PRINTS$(10);LA$;BA$(10);LC$;BB$(10);LC$;BC$(10);LC$;YS$(10):PRINT 1040 PRINTS$(11);LA$;BA$(11);LC$;BB$(11);LC$;BC$(11);LC$;YS$(11):PRINT 1050 PRINTS$(12);LA$;BA$(12);LC$;BB$(12);LC$;BC$(12);LC$;YS$(12):PRINT 1060 PRINTS$(13);LA$;BA$(13);LC$;BB$(13);LC$;BC$(13);LC$;YS$(13):PRINT 1070 PRINTS$(14);LA$;BA$(14);LC$;BB$(14);LC$;BC$(14);LC$;YS$(14):PRINT 1080 PRINTS$(15);LA$;BA$(15);LC$;BB$(15);LC$;BC$(15);LC$;YS$(15):PRINT 1090 PRINTS$(16);LA$;BA$(16);LC$;BB$(16);LC$;BC$(16);LC$;YS$(16):PRINT 1100 PRINT" USE JOYSTICK TO VIEW OTHER SUBJECTS" 1110 PRINT"" 1120 F=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16 1130 IF(SDAND1)THEN790 1140 IF(SDAND2)THEN1120 1150 IF(SDAND4)THEN1120 1160 IF(SDAND8)THEN1120 1170 IFFO=0THEN570 1180 SD=0:GOTO1120 1190 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 1200 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3 1210 PRINT"" 1220 PRINTM$(1);"";LA$;SR$(1);LC$;SS$(1);LC$;SU$(1);LC$;YM$(1) 1230 PRINT"";M$(2);"";LA$;SR$(2);LC$;SS$(2);LC$;SU$(2);LC$;YM$(2) 1240 PRINT"";M$(3);"";LA$;SR$(3);LC$;SS$(3);LC$;SU$(3);LC$;YM$(3) 1250 PRINT"";M$(4);"";LA$;SR$(4);LC$;SS$(4);LC$;SU$(4);LC$;YM$(4) 1260 PRINT"";M$(5);"";LA$;SR$(5);LC$;SS$(5);LC$;SU$(5);LC$;YM$(5) 1270 PRINT"";M$(6);"";LA$;SR$(6);LC$;SS$(6);LC$;SU$(6);LC$;YM$(6) 1280 PRINT" USE JOYSTICK TO VIEW FOLLOWING MONTHS":FORTY=1TO100:GETTU$:NEXTTY 1290 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16 1300 IF(SDAND1)THEN1290 1310 IF(SDAND2)THEN1360 1320 IF(SDAND4)THEN1290 1330 IF(SDAND8)THEN1290 1340 IFFO=0THEN570 1350 SD=0:GOTO1290 1360 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 1370 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3:PRINT"" 1380 PRINT"";M$(7);"";LA$;SR$(7);LC$;SS$(7);LC$;SU$(7);LC$;YM$(7) 1390 PRINT"";M$(8);"";LA$;SR$(8);LC$;SS$(8);LC$;SU$(8);LC$;YM$(8) 1400 PRINT"";M$(9);"";LA$;SR$(9);LC$;SS$(9);LC$;SU$(9);LC$;YM$(9) 1410 PRINT"";M$(10);"";LA$;SR$(10);LC$;SS$(10);LC$;SU$(10);LC$;YM$(10) 1420 PRINT"";M$(12);"";LA$;SR$(12);LC$;SS$(12);LC$;SU$(12);LC$;YM$(12) 1430 PRINT" USE JOYSTICK TO VIEW FOLLOWING MONTHS" 1440 PRINT"[145][145][145][145][145][145][145]";M$(11);"";LA$;SR$(11);LC$;SS$(11);LC$;SU$(11);LC$;YM$(11) 1450 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16 1460 IF(SDAND1)THEN1190 1470 IF(SDAND2)THEN1450 1480 IF(SDAND4)THEN1450 1490 IF(SDAND8)THEN1450 1500 IFFO=0THEN570 1510 SD=0:GOTO1450 1520 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 1530 IFGT>4000THEN2160 1540 IFGT(1)>4000THEN2160 1550 IFGT(2)>4000THEN2160 1560 IFGT(3)>4000THEN2160 1570 PRINT"";LA$;CM;LB$;CM+1;LB$;CM+2;LB$;CM+3 1580 PRINT"4000 [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 1590 PRINT"[167] [221] [221] [221] [165]" 1600 PRINT"[167] [221] [221] [221] [165]" 1610 PRINT"[167] [221] [221] [221] [165]" 1620 PRINT"3000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 1630 PRINT"[167] [221] [221] [221] [165]" 1640 PRINT"[167] [221] [221] [221] [165]" 1650 PRINT"[167] [221] [221] [221] [165]" 1660 PRINT"2000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 1670 PRINT"[167] [221] [221] [221] [165]" 1680 PRINT"[167] [221] [221] [221] [165]" 1690 PRINT"[167] [221] [221] [221] [165]" 1700 PRINT"1000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 1710 PRINT"[167] [221] [221] [221] [165]" 1720 PRINT"[167] [221] [221] [221] [165]" 1730 PRINT"[167] [221] [221] [221] [165]" 1740 PRINT" 0[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 1750 GI=1:GH=7:GOSUB1790 1760 GI=2:GH=14:GOSUB1790 1770 GI=3:GH=21:GOSUB1790 1780 GT$=STR$(GT):LE$=LEFT$(GT$,2):GT$(4)=GT$:GI=4:GH=28:GOSUB1830:GOTO2040 1790 GT(4)=GT 1800 FORA=1TO4 1810 GT$(A)=STR$(GT(A)) 1820 NEXTA 1830 LE$=LEFT$(GT$(GI),2) 1840 PRINT""TAB(GH); 1850 LE=VAL(LE$):IFLE=0THEN1900 1860 FORDE=1TOLE 1870 PRINT" [145][157][157][157][157] [145][157][157][157][157]"; 1880 PRINT" [145][157][157][157][157] [145][157][157][157][157]"; 1890 NEXTDE 1900 LE$=MID$(GT$(GI),3,1) 1910 LE=VAL(LE$):IFLE=0THEN1990 1920 IFLE=1THENPRINT"[146][185][185][185][185]":GOTO1990 1930 IFLE=2THENPRINT"[183][183][183][183]":GOTO1990 1940 IFLE=3THENPRINT" [145][157][157][157][157][146][175][175][175][175][146]":GOTO1990 1950 IFLE=4THENPRINT" [145][157][157][157][157][183][183][183][183][146]":GOTO1990 1960 IFLE=5THENPRINT" [145][157][157][157][157] [146]":GOTO1990 1970 IFLE=6THENPRINT" [145][157][157][157][157] [146][145][157][157][157][157][146][185][185][185][185]":GOTO1990 1980 GOTO2000 1990 RETURN 2000 IFLE=7THENPRINT" [145][157][157][157][157] [146][145][157][157][157][157][183][183][183][183]":GOTO1990 2010 IFLE=8THENPRINT" [145][157][157][157][157] [146][145][157][157][157][157] [146][145][157][157][157][157][146][185][185][185][185]":GOTO1990 2020 IFLE=9THENPRINT" [145][157][157][157][157] [146][145][157][157][157][157] [146][145][157][157][157][157][183][183][183][183]":GOTO1990 2030 GOTO1990 2040 PRINT"[146]:- GRAND TOTALS[146]" 2050 PRINT""; 2060 PRINT""GT(1) 2070 PRINT""; 2080 PRINT"";GT(2) 2090 PRINT""; 2100 PRINT"";GT(3) 2110 PRINT""; 2120 PRINT"";GT 2130 PRINT"        " 2140 PRINT"":GT$=MID$(GT$,2):GT$=""+GT$ 2150 GOTO2740 2160 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 2170 PRINT"";LA$;CM;LB$;CM+1;LB$;CM+2;LB$;CM+3 2180 PRINT"9999 [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 2190 PRINT"[167] [221] [221] [221] [165]" 2200 PRINT"[167] [221] [221] [221] [165]" 2210 PRINT"[167] [221] [221] [221] [165]" 2220 PRINT"8000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 2230 PRINT"[167] [221] [221] [221] [165]" 2240 PRINT"[167] [221] [221] [221] [165]" 2250 PRINT"[167] [221] [221] [221] [165]" 2260 PRINT"6000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 2270 PRINT"[167] [221] [221] [221] [165]" 2280 PRINT"[167] [221] [221] [221] [165]" 2290 PRINT"[167] [221] [221] [221] [165]" 2300 PRINT"4000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 2310 PRINT"[167] [221] [221] [221] [165]" 2320 PRINT"[167] [221] [221] [221] [165]" 2330 PRINT"[167] [221] [221] [221] [165]" 2340 PRINT"2000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]" 2350 PRINT" [167] [221] [221][160] [221] [165]" 2360 PRINT" [167] [221] [221] [221] [165]" 2370 PRINT" [167] [221] [221][160] [221] [165]" 2380 PRINT" 0[167] [221] [221] [221] [165]" 2390 GI=1:GH=7:GOSUB2420:GI=2:GH=14:GOSUB2420:GI=3:GH=21:GOSUB2420 2400 GT$=STR$(GT):LE$=LEFT$(GT$,2) 2410 GT$(4)=GT$:GI=4:GH=28:GOSUB2430:GOTO2630 2420 GT(4)=GT:FORA=1TO4:GT$(A)=STR$(GT(A)):NEXTA 2430 LE$=LEFT$(GT$(GI),2) 2440 PRINT""TAB(GH); 2450 LE=VAL(LE$):IFLE=0THEN2490 2460 FORDE=1TOLE 2470 PRINT" [146][145][157][157][157][157] [146][145][157][157][157][157]"; 2480 NEXTDE 2490 LE$=MID$(GT$(GI),3,1) 2500 LE=VAL(LE$):IFLE=0THEN2580 2510 IFLE=1THENPRINT"[185][185][185][185]":GOTO2580 2520 IFLE=2THENPRINT"[162][162][162][162]":GOTO2580 2530 IFLE=3THENPRINT"[184][184][184][184][146]":GOTO2580 2540 IFLE=4THENPRINT"[183][183][183][183][146]":GOTO2580 2550 IFLE=5THENPRINT"[163][163][163][163][146]":GOTO2580 2560 IFLE=6THENPRINT" [146]":GOTO2580 2570 GOTO2590 2580 RETURN 2590 IFLE=7THENPRINT" [145][157][157][157][157][146][164][164][164][164]":GOTO2580 2600 IFLE=8THENPRINT" [145][157][157][157][157][146][175][175][175][175]":GOTO2580 2610 IFLE=9THENPRINT" [145][157][157][157][157][146][185][185][185][185]":GOTO2580 2620 GOTO2580 2630 PRINT"[146]:- GRAND TOTALS[146]" 2640 PRINT""; 2650 PRINT""GT(1) 2660 PRINT""; 2670 PRINT"";GT(2) 2680 PRINT""; 2690 PRINT"";GT(3) 2700 PRINT""; 2710 PRINT"";GT 2720 PRINT"        " 2730 PRINT"":GT$=MID$(GT$,2):GT$=""+GT$ 2740 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16 2750 IF(SDAND1)THEN2740 2760 IF(SDAND2)THEN2740 2770 IF(SDAND4)THEN2740 2780 IF(SDAND8)THEN2740 2790 IFFO=0THEN570 2800 SD=0:GOTO2740 2810 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]" 2820 FORUI=1TO12:A$=LEFT$(M$(UI),2) 2830 PRINTTAB(11+UI);A$;:NEXTUI:PRINT" "; 2840 FORAF=1TO16:PRINTS$(AF);"[207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][208] [207][208]":NEXTAF 2850 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [183][183]" 2860 PRINTTAB(12);"[207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][208] [207][208]" 2870 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [183][183]" 2880 PRINT" [146][158]=LOSS (ACTUAL IS MORE THAN ESTIMATED)" 2890 PRINT" [146][158]=PROFIT(ACTUAL IS LESS THAN ESTIMATED)" 2900 FORW=1TO192 2910 V(W)=H(W)-Y(W):IFV(W)>0THENV(W)=1:GOTO2940 2920 IFV(W)<0THENV(W)=-1:GOTO2940 2930 IFV(W)=0THENV(W)=0:GOTO2940 2940 NEXTW:SC=10:MP=0:PRINT"";:GOTO3030 2950 FORER=1TO12 2960 MP=MP+1:IFV(MP)=1THEN2990 2970 IFV(MP)=-1THEN3000 2980 IFV(MP)=0THEN3010 2990 PRINTTAB(SC+(ER*2))" [146][158]";:GOTO3020 3000 PRINTTAB(SC+(ER*2))" [146][158]";:GOTO3020 3010 PRINTTAB(SC+(ER*2))"[146][158]"; 3020 NEXTER:RETURN 3030 FORZZ=1TO16:PRINT"":GOSUB2950:NEXTZZ 3040 MP=0:PRINT"" 3050 MP=MP+1:IFMP=17THEN3120 3060 IO=HS(MP)-YS(MP):IFIO>0THENIO=1:GOTO3110 3070 IFIO<0THENIO=-1:GOTO3100 3080 IFIO=0THENIO=0:GOTO3090 3090 PRINTTAB(37)"[146]":GOTO3050 3100 PRINTTAB(37)" [146]":GOTO3050 3110 PRINTTAB(37)" [146]":GOTO3050 3120 MP=0:PRINT"" 3130 MP=MP+1:IFMP=13THEN3200 3140 IO=HM(MP)-YM(MP):IFIO>0THENIO=1:GOTO3190 3150 IFIO<0THENIO=-1:GOTO3180 3160 IFIO=0THENIO=0:GOTO3170 3170 PRINTTAB(10+(MP*2))"[146]";:GOTO3130 3180 PRINTTAB(10+(MP*2))" [146]";:GOTO3130 3190 PRINTTAB(10+(MP*2))" [146]";:GOTO3130 3200 PRINT"" 3210 IFGH=GTTHENPRINTTAB(37)"[146]":GOTO3240 3220 IFGH>GTTHENPRINTTAB(37)" [146]":GOTO3240 3230 IFGH